home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / pom230.zip / EXAMPLE.BAT < prev    next >
DOS Batch File  |  1993-01-03  |  3KB  |  88 lines
  1. @ECHO OFF
  2. ECHO OFF
  3.  
  4.   REM  %1   Example number
  5.   REM  %2   [P]lain or [T]race menu
  6.  
  7.   IF (%2) == () START
  8.   IF EXIST POM.TRC DEL POM.TRC
  9.  
  10. :MAIN
  11.   GO-MENU EXAMPLE%2.MNU 01%1 GO-MENU.SAV
  12.   IF ERRORLEVEL 10 GOTO QUIT
  13.   IF ERRORLEVEL  6 GOTO TRACE
  14.   IF ERRORLEVEL  5 GOTO OUTPUT
  15.   IF ERRORLEVEL  4 GOTO RUN  
  16.   IF ERRORLEVEL  3 GOTO POMFILE
  17.   IF ERRORLEVEL  2 GOTO INPUT
  18.   IF ERRORLEVEL  1 GOTO DOCU
  19.  
  20. :TRACE
  21.   IF EXIST POM.TRC GOTO EOCKTRC
  22.   CLS
  23.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  24.   ECHO ▐                                                                             ▌
  25.   ECHO ▐  The file POM.TRC was not found.  There are two possible reasons for this:  ▌
  26.   ECHO ▐                                                                             ▌
  27.   ECHO ▐  (1)  You have not yet run the parsing job.                                 ▌
  28.   ECHO ▐                                                                             ▌
  29.   ECHO ▐  (2)  You do not have enough DOS environment space.                         ▌
  30.   ECHO ▐       For details, look up the SET command in your DOS manual.              ▌
  31.   ECHO ▐                                                                             ▌
  32.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  33.   ECHO  
  34.   PAUSE
  35.   GOTO MAIN
  36. :EOCKTRC
  37.   CALL VIEW POM.TRC
  38.   GOTO MAIN
  39.  
  40. :OUTPUT
  41.   IF EXIST EXAMPLE%1.LST GOTO EOCKLST
  42.   CLS        
  43.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  44.   ECHO ▐                                                                             ▌
  45.   ECHO ▐       You have to run the parsing job before you can view the output.       ▌
  46.   ECHO ▐                                                                             ▌
  47.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  48.   ECHO  
  49.   PAUSE
  50.   GOTO MAIN
  51. :EOCKLST
  52.   CALL VIEW EXAMPLE%1.LST
  53.   GOTO MAIN
  54.  
  55. :RUN  
  56.   IF (%1) == (3) SET POM=HDRCNTR/TEST
  57.   IF (%1) == (4) SET POM=descrip/price
  58.   POM EXAMPLE%1.POM EXAMPLE%1.TXT EXAMPLE%1.LST
  59.   SET POM=
  60.   IF ERRORLEVEL 1 PAUSE
  61.   GOTO MAIN
  62. :POMFILE
  63.   CALL VIEW EXAMPLE%1.POM
  64.   GOTO MAIN
  65.  
  66. :INPUT
  67.   IF NOT (%1) == (2) GOTO EOCK2
  68.   CLS
  69.   ECHO ▐▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▌
  70.   ECHO ▐                                                                             ▌
  71.   ECHO ▐  NOTE:  The small file viewer program we use to display the demonstration   ▌
  72.   ECHO ▐         files is limited to 80 character lines.  The actual input file is   ▌
  73.   ECHO ▐         a full-width AccPac report with lines up to 133 characters long.    ▌
  74.   ECHO ▐                                                                             ▌
  75.   ECHO ▐▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▌
  76.   ECHO  
  77.   PAUSE
  78. :EOCK2
  79.   CALL VIEW EXAMPLE%1.TXT
  80.   GOTO MAIN
  81.  
  82. :DOCU
  83.   CALL VIEW EXAMPLE%1.INF
  84.   GOTO MAIN
  85.  
  86. :QUIT
  87.   START @ EXAMPLES
  88.